home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 102
/
102.d81
/
year sec
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
36 lines
10 poke56,160:poke55,0:clr:dv=peek(186):ifdv<8thendv=8
20 print"[147][146][158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
30 [153]"def lenonvert (NULL)ears (NULL)o (NULL)econds "
40 [153]"waitusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
50 print"[159][197]nter number of years: [153]";:li=10:gosub180:ifval(w$)=0then20
60 print"[158]":y=val(w$):printval(w$)"[217]ears ="y*12"months"
70 printval(w$)"[217]ears ="y*(365.25/7)"weeks"
80 printval(w$)"[217]ears ="y*365.25"days"
90 printval(w$)"[217]ears ="y*365.25*24"hours
100 [153][197](w$)"(NULL)ears ="y[172]365.25[172]24[172]60"minutes
110 printval(w$)"[217]ears ="y*365.25*24*60*60"seconds
120 [153]"openatngain? ((NULL)open/(NULL)open)"
130 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]130
140 [139]a$[178]"y"[167][138]
150 [137]50000
160 [144]
180 w$[178]"":t[178]0:lw[178]0:[139]li[178]0[167]li[178]35
190 [161]a$:as[178][198](a$[170][199](0)):[139]ti[177]15[167][141]270
200 [139](a$[179]" "[176]a$[177]"z")[175](a$[179]"atn"[176]a$[177]"(NULL)")[175]as[179][177]13[175]as[179][177]20[167]190
210 lw[178][195](w$):[139]as[178]13[167]t[178][171]1:[141]270:[142]
220 [139]lw[178]li[167][139]as[179][177]20[175]as[179][177]13[167]190
230 [139]as[178]20[167][139]lw[178]0[167]190
240 [139]as[178]20[167]w$[178][200](w$,[195](w$)[171]1):t[178]0:[141]270:[141]270:[153]"waitcmd cmd";:[137]190
250 w$[178]w$[170]a$:lw[178][195](w$):[151]212,0:[153]"wait"a$;:[141]270
260 [137]190
270 t[178][168]t:[151]199,[171]t:[153]" cmd";:ti$[178]"000000":[142]
10000 [160]15:[159]15,8,15,"s:year sec":[160]15:[148]"year sec",8:[144]
50000 [139][194](787)[179][177]119[167]60000
50010 [151]49152,0:[151]44,192:[151]43,1:[151]45,[194](53246):[151]46,[194](43249):[138]
60000 a$[178]"high basic":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]60020
60010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
60020 [130]:[153]"load":[151]186,8:[128]
60030 q$[178][199](34):[151]646,[194](53281):[153]"load"
60040 [153]"loadp(NULL)49152,0:p(NULL)44,192:p(NULL)43,1:p(NULL)56,207:p(NULL)55,252:clr:l(NULL)"q$a$q$","i
60050 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]